#!/usr/bin/perl
# file: daytime.pl
use strict;
use Socket;
use constant DEFAULT_ADDR => '127.0.0.1';       # 定义常量 ip 为会送地址
use constant PORT => 13;        # 端口 13
use constant IPPROTO_TCP => 6;  # tcp 数值型协议
my $address = shift || DEFAULT_ADDR;
my $packed_addr = inet_aton($address);
my $destination = sockaddr_in(PORT, $packed_addr);      # 构造一个sockaddr_in结构
socket(SOCK, AF_INET, SOCK_STREAM, IPPROTO_TCP) or die "Can't make sock: $!";   
#创建一个套接字句柄， SOCK为句柄名，其余为地址族，套接字类型和协议号
connect (SOCK, $destination) or die "Can't connect $!";
#连接远程主机
print <SOCK>
#从远程主机读数据并打印，将SOCK当作一个读写文件句柄处理，或者使用read或<>读取，或者使用print向远程主机发送。